home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / yatzys_1 / modsound.bas < prev    next >
BASIC Source File  |  1998-05-08  |  514b  |  23 lines
  1. Attribute VB_Name = "modSound"
  2. Option Explicit
  3.  
  4. Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
  5.     (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  6.  
  7. Public Const SND_SYNC = &H0
  8. Public Const SND_ASYNC = &H1
  9. Public Const SND_NODEFAULT = &H2
  10. Public Const SND_LOOP = &H8
  11. Public Const SND_NOSTOP = &H10
  12.  
  13. Public Sub PlaySound(strSound As String)
  14.  
  15.     Dim wFlags%
  16.     
  17.     wFlags% = SND_ASYNC Or SND_NODEFAULT
  18.     sndPlaySound strSound, wFlags%
  19.  
  20. End Sub
  21.  
  22.  
  23.